home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / frmsplas.frm < prev    next >
Text File  |  1999-02-20  |  5KB  |  189 lines
  1. VERSION 5.00
  2. Begin VB.Form Splash 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4710
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   7455
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4710
  14.    ScaleWidth      =   7455
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Tag             =   "1041"
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   3000
  20.       Left            =   6120
  21.       Top             =   4080
  22.    End
  23.    Begin VB.Label Label2 
  24.       Alignment       =   2  'Center
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "Mike Altmanshofer  Timeline Studios Software."
  27.       BeginProperty Font 
  28.          Name            =   "MS Serif"
  29.          Size            =   6
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H00FFFFFF&
  37.       Height          =   360
  38.       Left            =   -375
  39.       TabIndex        =   1
  40.       Top             =   4440
  41.       Width           =   3540
  42.    End
  43.    Begin VB.Label Label1 
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "⌐1999  All rights reserved."
  46.       BeginProperty Font 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   12
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       ForeColor       =   &H00FFFFFF&
  56.       Height          =   255
  57.       Left            =   120
  58.       TabIndex        =   0
  59.       Top             =   4110
  60.       Width           =   3375
  61.    End
  62.    Begin VB.Image Image2 
  63.       Height          =   1800
  64.       Left            =   600
  65.       Picture         =   "frmSplash.frx":0000
  66.       Top             =   2175
  67.       Width           =   6000
  68.    End
  69.    Begin VB.Image Image1 
  70.       Height          =   1800
  71.       Left            =   120
  72.       Picture         =   "frmSplash.frx":339E
  73.       Top             =   300
  74.       Width           =   5550
  75.    End
  76. End
  77. Attribute VB_Name = "Splash"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
  83.  
  84. Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
  85.     Const CCDEVICENAME = 32
  86.     Const CCFORMNAME = 32
  87.     Const DM_PELSWIDTH = &H80000
  88.     Const DM_PELSHEIGHT = &H100000
  89.  
  90. Private Type DEVMODE
  91.     dmDeviceName As String * CCDEVICENAME
  92.     dmSpecVersion As Integer
  93.     dmDriverVersion As Integer
  94.     dmSize As Integer
  95.     dmDriverExtra As Integer
  96.     dmFields As Long
  97.     dmOrientation As Integer
  98.     dmPaperSize As Integer
  99.     dmPaperLength As Integer
  100.     dmPaperWidth As Integer
  101.     dmScale As Integer
  102.     dmCopies As Integer
  103.     dmDefaultSource As Integer
  104.     dmPrintQuality As Integer
  105.     dmColor As Integer
  106.     dmDuplex As Integer
  107.     dmYResolution As Integer
  108.     dmTTOption As Integer
  109.     dmCollate As Integer
  110.     dmFormName As String * CCFORMNAME
  111.     dmUnusedPadding As Integer
  112.     dmBitsPerPel As Integer
  113.     dmPelsWidth As Long
  114.     dmPelsHeight As Long
  115.     dmDisplayFlags As Long
  116.     dmDisplayFrequency As Long
  117. End Type
  118.  
  119.     Dim DevM As DEVMODE
  120. Private Sub form_load()
  121. autokenomode = 0
  122. delaytime = 50
  123. normalwidth = Screen.Width \ Screen.TwipsPerPixelX
  124. normalheight = Screen.Height \ Screen.TwipsPerPixelY
  125. fullmode = GetSetting(App.Title, "options", "fullmode", 0)
  126. If fullmode = 1 Then
  127. Call ChangeRes(640, 480)
  128. options.fullscreenmode.Enabled = True
  129. options.fullscreenmode.Checked = True
  130. End If
  131.  
  132. End Sub
  133.  
  134. Private Sub Timer1_Timer()
  135. options.Show
  136. Call formcircle(Me, 40)
  137. Unload Me
  138. End Sub
  139. Sub ChangeRes(iWidth As Single, iHeight As Single)
  140.  
  141.     Dim a As Boolean
  142.     Dim i&
  143.     i = 0
  144.  
  145.     Do
  146.         a = EnumDisplaySettings(0&, i&, DevM)
  147.         i = i + 1
  148.     Loop Until (a = False)
  149.  
  150.         Dim b&
  151.         DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
  152.         DevM.dmPelsWidth = iWidth
  153.         DevM.dmPelsHeight = iHeight
  154.         b = ChangeDisplaySettings(DevM, 0)
  155. End Sub
  156.  
  157. Sub formcircle(frm As Form, Size As Integer)
  158.  
  159.  
  160.  
  161.     For e% = Size% - 1 To 0 Step -1
  162.         frm.Left = frm.Left - e%
  163.         frm.Top = frm.Top + (Size% - e%)
  164.     Next e%
  165.  
  166.  
  167.  
  168.     For e% = Size% - 1 To 0 Step -1
  169.         frm.Left = frm.Left + (Size% - e%)
  170.         frm.Top = frm.Top + e%
  171.     Next e%
  172.  
  173.  
  174.  
  175.     For e% = Size% - 1 To 0 Step -1
  176.         frm.Left = frm.Left + e%
  177.         frm.Top = frm.Top - (Size% - e%)
  178.     Next e%
  179.  
  180.  
  181.  
  182.     For e% = Size% - 1 To 0 Step -1
  183.         frm.Left = frm.Left - (Size% - e%)
  184.         frm.Top = frm.Top - e%
  185.     Next e%
  186.  
  187.  
  188. End Sub
  189.